home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / pcboard / so_long.zip / SO-LONG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-01-31  |  3KB  |  192 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.  
  23. ;------------------------------------------------------------------------------
  24.  
  25.     STRING002 = "     @X0FESC to stay on, ENTER to log-off immediately     "
  26.     INTEGER001 = 1
  27.     While (INTEGER001 < 10) Do
  28.         STRING001 = Inkey()
  29.         If (STRING001 == Chr(13)) Break
  30.         If (STRING001 == Chr(27)) Goto LABEL001
  31.         AnsiPos 1, 15
  32.         ClrEol
  33.         AnsiPos 1, 16
  34.         ClrEol
  35.         AnsiPos 1, 17
  36.         ClrEol
  37.         AnsiPos 1, 18
  38.         ClrEol
  39.         AnsiPos 1, 19
  40.         ClrEol
  41.         AnsiPos 1, 19
  42.         ClrEol
  43.         AnsiPos 1, 21
  44.         ClrEol
  45.         AnsiPos 1, 22
  46.         ClrEol
  47.         AnsiPos 1, 20
  48.         ClrEol
  49.         AnsiPos 15, 20
  50.         PrintLn "", STRING002
  51.         If (INTEGER001 == 1) Gosub LABEL002
  52.         If (INTEGER001 == 2) Gosub LABEL003
  53.         If (INTEGER001 == 3) Gosub LABEL004
  54.         If (INTEGER001 == 4) Gosub LABEL005
  55.         If (INTEGER001 == 5) Gosub LABEL006
  56.         If (INTEGER001 == 6) Gosub LABEL007
  57.         If (INTEGER001 == 7) Gosub LABEL008
  58.         Command Chr(13), 0
  59.         If (INTEGER001 == 8) Gosub LABEL009
  60.         If (INTEGER001 == 9) Gosub LABEL010
  61.         Delay 18
  62.         Inc INTEGER001
  63.     EndWhile
  64.     Hangup
  65.     :LABEL001
  66.     KbdStuff "^K"
  67.     End
  68.     :LABEL002
  69.     AnsiPos 39, 16
  70.     PrintLn "@X8A─╖"
  71.     AnsiPos 39, 17
  72.     PrintLn "@X8A ║"
  73.     AnsiPos 39, 18
  74.     PrintLn "@X8A─╨─@X07"
  75.     Return
  76.     :LABEL003
  77.     AnsiPos 39, 16
  78.     PrintLn "@X8A───┐"
  79.     AnsiPos 39, 17
  80.     PrintLn "@X8A╓──┘"
  81.     AnsiPos 39, 18
  82.     PrintLn "@X8A╙───@X07"
  83.     Return
  84.     :LABEL004
  85.     AnsiPos 39, 16
  86.     PrintLn "@X8A╓──┐"
  87.     AnsiPos 39, 17
  88.     PrintLn "@X8A ──┤"
  89.     AnsiPos 39, 18
  90.     PrintLn "@X8A╙──┘@X07"
  91.     Return
  92.     :LABEL005
  93.     AnsiPos 39, 16
  94.     PrintLn "@X8A╥  ┬"
  95.     AnsiPos 39, 17
  96.     PrintLn "@X8A╙──┤"
  97.     AnsiPos 39, 18
  98.     PrintLn "@X8A   ┴@X07"
  99.     Return
  100.     :LABEL006
  101.     AnsiPos 39, 16
  102.     PrintLn "@X8A╓───"
  103.     AnsiPos 39, 17
  104.     PrintLn "@X8A╙──┐"
  105.     AnsiPos 39, 18
  106.     PrintLn "@X8A───┘@X07"
  107.     Return
  108.     :LABEL007
  109.     AnsiPos 39, 16
  110.     PrintLn "@X8A╓──┐"
  111.     AnsiPos 39, 17
  112.     PrintLn "@X8A╟──┐"
  113.     AnsiPos 39, 18
  114.     PrintLn "@X8A╙──┘@X07"
  115.     Return
  116.     :LABEL008
  117.     AnsiPos 39, 16
  118.     PrintLn "@X8A╓──┐"
  119.     AnsiPos 39, 17
  120.     PrintLn "@X8A   │"
  121.     AnsiPos 39, 18
  122.     PrintLn "@X8A   ┴@X07"
  123.     Return
  124.     :LABEL009
  125.     AnsiPos 39, 16
  126.     PrintLn "@X8A╓──┐"
  127.     AnsiPos 39, 17
  128.     PrintLn "@X8A╟──┤"
  129.     AnsiPos 39, 18
  130.     PrintLn "@X8A╙──┘@X07"
  131.     Return
  132.     :LABEL010
  133.     AnsiPos 39, 16
  134.     PrintLn "@X8A╓──┐"
  135.     AnsiPos 39, 17
  136.     PrintLn "@X8A╙──┤"
  137.     AnsiPos 39, 18
  138.     PrintLn "@X8A╙──┘@X07"
  139.     Return
  140.  
  141. ;------------------------------------------------------------------------------
  142. ;
  143. ; Usage report (before postprocessing)
  144. ;
  145. ; ■ Statements used :
  146. ;
  147. ;    1       End
  148. ;    9       ClrEol
  149. ;    4       Goto 
  150. ;    3       Let 
  151. ;    28      PrintLn 
  152. ;    12      If 
  153. ;    1       Hangup
  154. ;    9       Gosub 
  155. ;    9       Return
  156. ;    1       Delay 
  157. ;    1       Inc 
  158. ;    1       KbdStuff 
  159. ;    37      AnsiPos 
  160. ;    1       Command 
  161. ;
  162. ;
  163. ; ■ Functions used :
  164. ;
  165. ;    11      ==
  166. ;    1       <
  167. ;    1       !
  168. ;    3       Chr()
  169. ;    1       Inkey()
  170. ;
  171. ;------------------------------------------------------------------------------
  172. ;
  173. ; Analysis flags : B
  174. ;
  175. ; B - Brute hangup ■ 1
  176. ;     Program hangup without notification. This may be a good way to
  177. ;     disconnect a user, but if used randomly, may be very nasty
  178. ;     ■ Search for : HANGUP, DTROFF
  179. ;
  180. ;------------------------------------------------------------------------------
  181. ;
  182. ; Postprocessing report
  183. ;
  184. ;    0       For/Next
  185. ;    1       While/EndWhile
  186. ;    0       If/Then or If/Then/Else
  187. ;    0       Select Case
  188. ;
  189. ;------------------------------------------------------------------------------
  190. ;                 AEGiS Corp - Break the routines, code against the machines!
  191. ;------------------------------------------------------------------------------
  192.